home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
32
/
megatrek.zip
/
END.ASC
< prev
next >
Wrap
Text File
|
1982-07-03
|
3KB
|
71 lines
50000 PRINT:PRINT:PRINT:INPUT"CONFLICT RESOLVED - PREPARED FOR RATING ";B$
50010 PRINT CHR$(12):A2=1:PRINT:PRINT"IT IS STARDATE";FNR(D0):PRINT
50020 ON F9 GOTO 50040,50230,50300,50350,50360,50380,50390,50410
50030 ON F9-8 GOTO 50430,50470,50490
50040 PRINT"YOU HAVE DESTROYED THE KLINGON INVASION FLEET":PRINT
50050 PRINT" ***THE FEDERATION IS SAVED***":G1=1
50060 IF(A1=0)OR(B1<>0)THEN 50210
50070 IF LEFT$(S5$,1)<>"E"THEN 50210
50080 IF 3*S1+35*N1+C4>=100 THEN 50210
50090 IF D0-J2<=6 THEN 50120
50100 R8=.1*S8*(S8+1)+.1
50110 IF(K1+K2)/(D0-J2)<R8 THEN 50210
50120 PRINT:PRINT"YOU HAVE DONE SO WELL THAT COMMAND"
50130 IF S8=4 THEN 50190
50140 PRINT"PROMOTES YOU.....";
50150 IF S8=1 THEN PRINT"TO NOVICE CLASS!"
50160 IF S8=2 THEN PRINT"TO SENIOR CLASS!"
50170 IF S8=3 THEN PRINT"TO EXPERT CLASS!"
50180 PRINT" ***CONGRATULATIONS***":GOTO 50210
50190 PRINT"PROMOTES YOU TO 'COMMODORE EMERITUS'."
50200 PRINT:PRINT"NOW YOU CAN RETIRE !"
50210 CHAIN MERGE "SCORE.ASC",50000!,ALL,DELETE 50000-60000
50220 GOTO 70
50230 PRINT"TIME HAS RUN OUT - THE FEDERATION HAS BEEN CONQUERED AND YOUR CRAFT"
50240 PRINT"IS NOW ENEMY PROPERTY... YOU WILL STAND TRIAL AS A WAR-CRIMINAL..."
50250 PRINT"ON THE BASIS OF YOUR RECORD YOU WILL BE";
50260 IF R1*3>I1 THEN 50290
50270 PRINT" SUMMARILY EXECUTED"
50280 A1=0:CHAIN MERGE "SCORE.ASC",50000!,ALL,DELETE 50000-60000
50290 PRINT" IMPRISONED FOR LIFE"
50300 PRINT"YOUR LIFE SUPPORT RESERVES HAVE RUN OUT, AND"
50310 PRINT"YOU WILL SOON DIE!!!"
50320 PRINT
50330 PRINT"YOUR STARSHIP IS A DERELICT IN SPACE."
50340 GOTO 50500
50350 PRINT"YOUR ENERGY SUPPLY IS EXHAUSTED.":GOTO 50320
50360 PRINT"THE ";S5$;" HAS BEEN DESTROYED IN BATTLE."
50370 GOTO 50500
50380 GOTO 70
50390 PRINT"YOUR STARSHIP HAS BEEN DESTROYED BY A NOVA."
50400 PRINT"NICE WORK, IDIOT !!!":GOTO 50500
50410 PRINT"THE ";S5$;" HAS BEEN INCINERATED BY A SUPERNOVA."
50420 GOTO 50500
50430 PRINT"YOU HAVE BEEN CAPTURED BY THE ENEMY. IF YOU STILL HAD A STARBASE,"
50440 PRINT"YOU WOULD HAVE BEEN REPATRIATED. SINCE YOU HAVE NO BASES, YOU WILL"
50450 PRINT"BE MERCILESSLY TORTURED !!"
50460 GOTO 50500
50470 PRINT:PRINT"THE ";S5$;" IS NOW AN EXPANDING CLOUD"
50480 PRINT"OF SUB-ATOMIC PARTICLES...":GOTO 50500
50490 PRINT"STARBASE WAS UNABLE TO RE-MATERIALIZE YOUR STARSHIP."
50500 PRINT
50510 IF LEFT$(S5$,1)="F"THEN S5$=""
50520 IF LEFT$(S5$,1)="E"THEN S5$="FAERIE QUEENE"
50530 A1=0
50540 IF R1=0 THEN 50660
50550 G3=R4/I3:B8=(R1+2*R2)/(I1+2*I4)
50560 A3=G3/B8
50570 IF A3<1+.5+RND(1)THEN 50640
50580 PRINT"AS A RESULT OF YOUR ACTIONS, A TREATY WITH THE KLINGON"
50590 PRINT"EMPIRE HAS BEEN SIGNED. THE TERMS OF THE TREATY ARE"
50600 IF A3<3*RND(1)THEN 50630
50610 PRINT"FAVORABLE TO THE FEDERATION.":PRINT
50620 PRINT"CONGRATULATIONS.":GOTO 50650
50630 PRINT"HIGHLY UNFAVORABLE TO THE FEDERATION.":GOTO 50650
50640 PRINT"THE FEDERATION WILL BE DESTROYED!"
50650 CHAIN MERGE "SCORE.ASC",50000!,ALL,DELETE 50000-60000
50660 PRINT"SINCE YOU TOOK THE LAST KLINGON WITH YOU, YOU ARE"
50670 PRINT"A MARTYR AND A HERO.":G1=1:A1=0
50680 CHAIN MERGE "SCORE.ASC",50000!,ALL,DELETE 50000-60000
60000 REM END OVERLAY
670 PRINT"A MAR